home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 05.zip / BS1 part 5 / IK_5.6.adf / AMIGA-DIALOG.GFA (.txt) < prev    next >
GFA-BASIC Amiga  |  1991-01-30  |  25KB  |  413 lines
  1. GFA-AMIGAB
  2. REVERS
  3. ZA    CLOSEFONT
  4. SETFONT
  5. ZEILE
  6. SPALTE
  7. LAENGE
  8. POSS2
  9. EINBLENDUNG
  10. BAISIS
  11. BASIS
  12. FONT.ALT
  13. INTUITION.ADRESSE
  14. ALT.ANZ    FONT.NAME
  15. FONT.NEU
  16. HEIGH
  17. FRAGE
  18. ANZ.FRAGEN    ANZFRAGEN
  19. DATEI
  20. WARTE
  21. TASTE
  22. INKEY
  23. CYCLIC
  24. RICHTIG
  25. FALSCH    MAXFRAGEN
  26. QUIZENDE
  27. NCOLORS
  28. BLATT
  29. CREEN_2
  30. IDCMP
  31. THEMA
  32. DATEI
  33. BILDNAME
  34. TASTE
  35. FONT0
  36. C    FONT.NAME
  37. THEMA0
  38. FRAGEN
  39. FRAGE
  40. TASTE1
  41. BLINK.BILD
  42. GRAFIK
  43. FALSCH
  44. RICHTIG
  45. DRIVE
  46. D.NAME
  47. MERK2
  48. TEASTE    MAXFRAGEN
  49. HEIGH
  50. PREFS
  51. HEIGHT    FONT.H
  52. HE    FONT.STIL
  53. FONT.PREFS
  54. FONT.HOEHE
  55. INTUITION.ADRESSE
  56. WINDOW.ADR
  57. FONT.ALT
  58. FONT.NEU
  59. ALT.NAME
  60. FA    FONT.NAME
  61. NEU.NAME
  62. RP    DFONT_LIB
  63. CLEAR
  64. MYBUF
  65. INBUF
  66. VIEWPORT
  67. COMAP2    VIEWPORT2
  68. COTAB2
  69. COMAP3    VIEWPORT3
  70. COTAB3
  71. BKOMP
  72. NCOLORS
  73. CTEMP
  74. INCODE
  75. WARTE
  76. FARBE
  77. NCOLOSR
  78. BREITE
  79. HOEHE    F.FENSTER
  80. F.SCREEN
  81. LOOP1
  82. MEM.OPT
  83. P.PORT
  84. F.BREITE
  85. F.HOEHE
  86. F.RASTPORT
  87. F.VIEWPORT
  88. F.COLORMAP    F.VP.MODI
  89. P.SIGBIT
  90. CALL    P.SIGTASK
  91. STATUS
  92. FEHLER
  93. PEEKL
  94. TEXTATTR
  95. ARRPTR
  96. DPOKE
  97. WARTEN
  98. EXIST
  99. THEMA
  100. INVERZ
  101. TEXTATTR
  102. CTABSAVE
  103. CTABWORK
  104. FARBE
  105. CCRTSEC
  106. CCRTMICS
  107. CCRTDIR    CCRTSTART
  108. CCRTEND
  109. STRFONT
  110. FONTNEU
  111. FONT.NEU
  112. FONT.ALT    FONT.STIL
  113. FONT.PREFS
  114. HEIGH
  115. FONT.HOEHE    FONT.PRES
  116. ALT.ANZ
  117. NEU.ANZ
  118. INCODE
  119. INBYTE
  120. WEITER
  121. TASTATURABFRAGE
  122. EINLESEN
  123. BILDER_LADEN
  124. TESTANZEIGE
  125. SUBTESTANZEIGE
  126. ENDPROC
  127. ENDEPROC
  128. ENDE1
  129. THEMA_SETZEN
  130. 1    ZUM_LADEN
  131. ENDE2
  132. LADEN
  133. WEITER.LADEN
  134. ENDE.2
  135. FERTIG
  136. ENDECYCLIC    ENDCYCLIC
  137. QUIZENDE
  138. WEITER2
  139. ANFANG
  140. ENDCYC
  141. LEIDER
  142. WEITERLEIDER
  143. GEFUNDEN
  144. ENDE3
  145. NOCHMAL
  146. DRUCKENENDE
  147. WEITER
  148. DISKFONT
  149. BILDAUSGABE
  150. TESTANZEIGE
  151. ENDEPROC
  152. ENDE1
  153. FONTANZEIGE    DISKFONT9
  154. SETFONT
  155. SOFTFONT
  156. LDFONT
  157. CLFONT
  158. FARBEN_SETZEN
  159. THEMA_SETZEN
  160. BILDER_LADEN
  161. TASTATURABFRAGE
  162. LADEN
  163. BILDANZEIGE
  164. THEMA
  165. EINSTELLUNGEN
  166. ZIEHUNG
  167. QUIZAUSWERTUNG
  168. WHILE
  169. WEITER.LADEN
  170. ANZEIGE.SCHLEIFE
  171. ENDE.2
  172. GRAFIKSTART
  173. GRAFIKLADEN    TEXTLADEN
  174. DRUCKEN
  175. CYCLIC
  176. FCYCLE
  177. BCYCLE
  178. TEXTANZEIGE
  179. TEXT_ANZEIGE_SCHLEIFE
  180. ENDECYCLIC
  181. CLEARS
  182. CLOEARW2
  183. KONTOSTAND
  184. GANZEIGE
  185. TEXT_ANZEIGE_SCHLEIFE_2
  186. ENDIFF
  187. FEHLER
  188. WAIT20
  189. WAIT2
  190. CASH_SPEICHER
  191. CASH_SPEICHER_LADEN
  192. WELCHES_DRIVE
  193. SCREENHARDCOPY
  194. DIRLADEN    DIR_LADEN
  195. VERZEICHNIS
  196. ENDE3
  197. INFOL
  198. SCHEN
  199. ELSEIF
  200. OPENSCREEN
  201. OPENSCREEN_2
  202. OPENSCREEN_3
  203. SCREEN_3
  204. SCREEN_2
  205. OPENDISKFONT
  206. TEXTATTR
  207. OPENFONT
  208. *********** HD-Version **********************
  209. lAmiga - disk-Quiz - Programm
  210.     ram:messe 
  211. $Bitte Anzahl der Quizfragen eingebenF
  212. :                  Kernenergie-Informationen (Messeversion)F
  213.              "
  214. *** 4 =  Voreinstellungen ******
  215. sys:FF
  216. ik/FF
  217.  Dialog-Programm
  218. ***************** Programmschleife Anfang ************
  219. ***** Quizende Bildausgabe *********
  220.     ram:messe 
  221. bravoF
  222. leiderFF
  223. ILBMF
  224.               !********** Quiz zur
  225. cksetzen **********
  226.  pfad$=df$+"b/"
  227.                      ******** Tastatur-Abfrage aufrufen ********
  228.  *** Grafik ***
  229.  ***  Text  ***
  230. ******************** Programmschleife Ende ************
  231.  letzte Frage bei Quiz
  232. 90/FF
  233.  ASC(MID$(b$(nr%),LEN(datei$)+4,1))
  234.      F1
  235.    PRINT CHR$(12)
  236. PRINT CHR$(13)
  237. retuurn.FF
  238.  Bild B0 oder 90
  239.  Umschaltung auf Quiz
  240.  Umschaltung auf Dialog
  241. CLEARW #2
  242.  Dialog
  243.  Bild nicht gefunden RETURN
  244.  Bild nicht gefunden RETURN
  245. Retuurn. F
  246. l************************************
  247. lAmiga-Farben + C=64 Farbcodes setzen
  248. l************************************
  249.  Dialog-Themen
  250. 90aF 
  251.  F     Fragen-String zuordnen
  252. 90rFd
  253. 90sFd
  254.      F8
  255.  IK - Kernenergie - InformationenF
  256. EinleitungF
  257. Grundlagen der KernphysikFF
  258. KernkraftwerkeF
  259. Sicherheit und StrahlenschutzFn
  260. KernbrennstoffkreislaufFc
  261. Lexikon der KernenergieFg
  262. Medienangebot des IKF
  263. Quiz: Atom- und Kernphysik F
  264. Quiz: Reaktortechnik Fy
  265. Quiz: Stromversorgung F
  266. abcefgijklnoprsuvwF
  267.  18 Fragen 90a
  268. acdefhijklnopqstvwxyzF8
  269.  21 Fragen 90r
  270. abcdefghijklmnosF
  271.  16 Fragen 90s
  272. OPENS 1,0,0,340,256,4,0     ! Screen mit 32 Farben
  273. OPENW #1,0,0,339,246,0,4096+2048+8+2,1
  274. ******** Richtige Antwort ****************
  275. 8Yes, that's right. congratulations. I am happy with you. F
  276. O no. I am sorry. F
  277. ********  falsche Antwort ********
  278.  don't worry, bee happy. Fp
  279.  Eingabe durch Anwender
  280. no answer. F 
  281.  Antwort r/f warten auf Taste
  282. let's go on. Fh
  283.  Ziehung
  284.    PRINT nr.1% ! CHR$(12)
  285. PRINT CHR$(13)
  286. ****** Kontostand anzeigen *******
  287. kONTOSTANDF
  288. RICHTIG  : 
  289. FALSCH   : 
  290.                               ! Resetet den Font der Console
  291.  auf den Font des Rastports
  292.                               ! -> neuer Font beim PRINT - Befehl!
  293.  OPENW #0
  294. ruby!
  295.  Fonts laden...
  296. emerald!
  297. topaz!
  298.  <- default Font Topaz 8/10
  299. 2 XF8
  300.  Font aktivieren
  301. PRINT csi$;"0;31;40m";          ! Hiermit wird die Form und Farbe ge
  302. ndert
  303. PRINT "Das ist Ruby 15 "
  304. PRINT csi$;"4;31;40m";"unterstrichen"
  305.                 Grosschrift  (Ruby 15)
  306.  Font aktivieren
  307. PRINT csi$;"0;31;40m";"Emerald 17"
  308. PRINT csi$;"1;33;40m";"Fett"
  309. PRINT csi$;"4;33;40m";"Unterstrichen"
  310.                 Kleinschrift (Emerald 17)
  311. wieder normalF
  312. RETURN
  313. diskfont.library
  314. .font
  315.  ROM-Font?
  316.  DISK-Font
  317.  not found !F
  318. can't open diskfont.library !F
  319. PRINT ris$;                             ! F
  320. r Print
  321. Amigafarben
  322. 0.00, 0.00, 0.00,  1.00, 1.00, 1.00,  1.00, 0.00, 0.00,  0.00, 0.93, 0.87
  323. 0.80, 0.00, 0.93,  0.00, 1.00, 0.00,  0.00, 0.00, 1.00,  1.00, 1.00, 0.13
  324. 0.80, 0.60, 0.53,  0.73, 0.73, 0.73,  0.93, 0.20, 0.00,  0.50, 0.50, 0.50
  325. 0.27, 0.27, 0.27,  0.73, 1.00, 0.00,  0.47, 0.87, 1.00,  0.90, 0.90, 0.90
  326. Farbcodes C=64
  327. 0,144,5,28,159,156,30,31,158,129,149,150,151,152,153,154,155,18,146,19,13
  328. *********************
  329. **  IFF-Lader      **
  330. *********************
  331.  4096+2048+8+2,2
  332.  Amiga-Dialog F
  333.  Biplaneadressen low
  334.  4096+2048+8+2,3
  335.  Amiga-Dialog F
  336.  Biplaneadressen high
  337. ILBMF
  338. * Farbpalette ?
  339. CMAPF
  340. * Grafikdaten ?
  341. BODYF
  342. BMHDF
  343. Breite
  344.       FH
  345. Tiefe
  346. Komprimiert
  347. CRNGF
  348. *Lesen der Farbpalette
  349. farbwerte
  350. * Lesen der Bilddaten
  351. leider
  352. richtig
  353.    BLOAD "ram:bild",ad%(scr%,0)
  354. Zeilen
  355. Planes
  356. Planebasis
  357. leiderF
  358. ausgabe bei leider
  359. - Zyklischer Farbwechsel wie in DPaint
  360. - Farben retten
  361. - zyklischer Farbwechsel
  362.                  ******************* nur eine Farbe ****************
  363.                **************** alle Farben ***************
  364.                ************* Cyclic Ein + Aus *************
  365. - Farben restaurieren
  366.  Farbwechsel r
  367. rts (backward)
  368. R   F 
  369. Farbwechsel vorw
  370. rts (forward)
  371. R   Ft
  372. Zeilen
  373. Planes
  374. Planebasis
  375. ;  FF
  376.  PRINT "Guru-Meldung";HEX$(GURU)
  377.                       ************  cash-Speicher anlegen **********
  378.  BSAVE "ram:bild",ad%(scr%,0),(st1%+1)*(ad%(scr%,1)-ad%(scr%,0))
  379.  cash$(1)="1"
  380. df0:ik/
  381. df0:ik/F
  382. ram:df1 
  383. df1:ik/
  384. df1:ik/F
  385. ram:df2 
  386. df2:ik/
  387. df2:ik/F
  388. sys:ik/
  389. sys:ik/F
  390. ik/FF
  391.     ram:messe 
  392.  3583  ! 3838
  393.  LPRINT CHR$(13)
  394. Kein Signalbit frei!FF
  395. printer.deviceFF
  396.  +CHR$(0)
  397. Drucker ist nicht frei.F
  398.  PRINT "Fehlercode: ";fehler%
  399. Ausdruck Verzeichnis: ";
  400. 1 = EinzelblattF
  401. 2 = EndlospapierFF
  402. Anzeige Verzeichnis: ";
  403. ram:dirF
  404. ram:dirF
  405. ILBMF
  406. !Neues Blatt einlegen und (RETURN)F
  407.  Taste Del
  408. Bild wird gel
  409. schtFF
  410. sche Info-DateienF
  411. ram:dirF
  412. ram:dirF
  413.